home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr34
/
archdr20.zip
/
FROMARC.DMR
< prev
next >
Wrap
Text File
|
1994-08-21
|
654b
|
30 lines
/* Change DiskMaster directory from directory on Archives:
** to original directory. */
parse arg dir
dir=strip(dir,'B','"')
if left(dir,9)="Archives:" then
do
i=index(dir,':')
if i~=0 then
do
dir=substr(dir,i+1)
i=index(dir,'/')
if i~=0 then
dir=left(dir,i-1) || ':' || substr(dir,i+1)
else
dir=dir || ':'
i=lastpos('.lha',dir)
if i~=0 then
do
i=lastpos('/',dir,i)
if i~=0 then
dir=left(dir,i-1)
else
dir=left(dir,index(dir,':'))
end
NewDir '"' || dir || '"'
end
end